{$CLEO .cs}

0000: NOP

:KEY_PRESSED
wait 0
if and
0AB0:   key_pressed 16//--- key = Backspace  
0AB0:   key_pressed 17//--- key = Backspace 
0AB0:   key_pressed 35//--- key = Backspace 
jf @KEY_PRESSED
model.Load(#CHROMEGUN)   //184    //111
model.Load(#FORTUNE)
model.Load(#CELLPHONE)
038B: load_requested_models



20@ = audiostream.Load("cleo\homies\casinogame.mp3")  
21@ = audiostream.Load("cleo\homies\call.mp3")  
22@ = audiostream.Load("cleo\homies\Phonesound.mp3")  
23@ = audiostream.Load("cleo\homies\shaundi2.mp3") 

0729: AS_actor $PLAYER_ACTOR hold_cellphone 1
wait 2000
audiostream.PerformAction(22@, play)
0ACD: show_text_highpriority "(Phone music playing)" time 1300
wait 1300
audiostream.PerformAction(21@, play)
0ACD: show_text_highpriority "(((Phone ringing)))" time 2500
wait 2500
audiostream.PerformAction(20@, play)
0ACD: show_text_highpriority "(Unknown Call)" time 5500
wait 5500
0729: AS_actor $PLAYER_ACTOR hold_cellphone 0
wait 500



023C: load_special_actor 'kinzie' as 6 // models 290-299
038B: load_requested_models
04C4: store_coords_to 28@ 29@ 30@ from_actor $PLAYER_ACTOR with_offset 0.0 5.0 -1.0
0@ = actor.Create(gang6, #SPECIAL06, 28@, 29@, 30@)
actor.Health(0@) = 10000
0446: set_actor 0@ dismemberment_possible 0
07FE: set_actor 0@ fighting_style_to 15 moves 6
02E2: set_actor 0@ weapon_accuracy_to 89
07DD: set_actor 0@ attack_rate 90 // previously known as temper_to
04D8: set_actor 0@ drowns_in_water 0
actor.GiveWeaponAndAmmo(0@, shotgun, 99999)
0245: set_actor 0@ walk_style_to "sexywoman"
03FE: set_actor 0@ money 3000
081A: set_actor 0@ weapon_skill_to 2 
0946: set_actor 0@ actions_uninterupted_by_weapon_fire 1 
09B5: set_actor 0@ signal_after_kill 1
05E2: AS_actor 0@ kill_actor $PLAYER_ACTOR


0296: unload_special_actor 6
audiostream.Release(20@)
audiostream.Release(21@)
audiostream.Release(22@)
audiostream.Release(23@)
jump @KEY_PRESSED

:homie_submenu                                                   
wait 0


0ADF: add_dynamic_GXT_entry "homie00" text "~p~Call Homies"
0ADF: add_dynamic_GXT_entry "homie05" text "Call Shaundi Instantly"
0ADF: add_dynamic_GXT_entry "homie06" text "Call Shaundi"




08D4: 3@ = create_panel_with_title 'homie00' position  340.0  120.0 width  240.0 columns  1 interactive  1 background  1 alignment  0
08DB: set_panel 3@ column  0 header 'dummy' data 'homie05' 'homie06' 'dummy' 'dummy' 'dummy' 'dummy' 'dummy' 'dummy' 'dummy' 'dummy' 'dummy' 'dummy'
090E: set_panel 3@ active_row  0
01B4: set_player $PLAYER_CHAR can_move 0
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
:homie_Menu_1
wait  0
if
0256:   player $PLAYER_CHAR defined
jf @homie_Menu_21
if
00E1:   key_pressed  0  15//--- key = Enter/Exit
jf @homie_Menu_2  

jump @homie_Menu_21//--jump to menue exit

:homie_Menu_2
if
00E1:   key_pressed  0  16//--- key = Ped SPRINT
jf @homie_Menu_1
03E6: remove_text_box
08D7: 4@ = panel 3@ active_row//-- submit number of the highlighted button into variable
if
0039:   4@ ==  0  // integer values
jf @homie_Menu_3    
01B4: set_player $PLAYER_CHAR can_move 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
08DA: remove_panel 3@
03E6: remove_text_box

20@ = audiostream.Load("cleo\homies\casinogame.mp3")  
21@ = audiostream.Load("cleo\homies\call.mp3")  
22@ = audiostream.Load("cleo\homies\Phonesound.mp3")  
23@ = audiostream.Load("cleo\homies\shaundi2.mp3") 

0729: AS_actor $PLAYER_ACTOR hold_cellphone 1
wait 2000
audiostream.PerformAction(22@, play)
0ACD: show_text_highpriority "(Phone music playing)" time 1300
wait 1300
audiostream.PerformAction(21@, play)
0ACD: show_text_highpriority "(((Phone ringing)))" time 2500
wait 2500
audiostream.PerformAction(20@, play)
0ACD: show_text_highpriority "~p~Shaundi~w~: I can make it, but I'm really baked right now." time 3500
wait 3500
0729: AS_actor $PLAYER_ACTOR hold_cellphone 0
wait 500



023C: load_special_actor 'shaundi' as 6 // models 290-299
038B: load_requested_models
04C4: store_coords_to 28@ 29@ 30@ from_actor $PLAYER_ACTOR with_offset 0.0 5.0 -1.0
0@ = actor.Create(gang2, #SPECIAL06, 28@, 29@, 30@)
actor.Health(0@) = 20000
0446: set_actor 0@ dismemberment_possible 0
07FE: set_actor 0@ fighting_style_to 15 moves 6
02E2: set_actor 0@ weapon_accuracy_to 89
07DD: set_actor 0@ attack_rate 90 // previously known as temper_to
04D8: set_actor 0@ drowns_in_water 0
actor.GiveWeaponAndAmmo(0@, mp5, 99999)
0245: set_actor 0@ walk_style_to "sexywoman"
03FE: set_actor 0@ money 3000
081A: set_actor 0@ weapon_skill_to 2 
0631: put_actor 0@ in_group $PLAYER_GROUP
0946: set_actor 0@ actions_uninterupted_by_weapon_fire 1 
09B5: set_actor 0@ signal_after_kill 1

marker.CreateAboveActor(19@, 0@)
marker.SetColor(19@, 2)
018B: set_marker 19@ radar_mode 2 


0296: unload_special_actor 6

jump @homie_spawned_text

:homie_Menu_3
if
0039:   4@ ==  1  // integer values
jf @homie_Menu_4
01B4: set_player $PLAYER_CHAR can_move 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
08DA: remove_panel 3@
03E6: remove_text_box

20@ = audiostream.Load("cleo\homies\shaundi3.mp3")  
21@ = audiostream.Load("cleo\homies\call.mp3")  
22@ = audiostream.Load("cleo\homies\Phonesound.mp3")  
23@ = audiostream.Load("cleo\homies\shaundi2.mp3") 
0729: AS_actor $PLAYER_ACTOR hold_cellphone 1
wait 2000
audiostream.PerformAction(22@, play)
0ACD: show_text_highpriority "(Phone music playing)" time 1300
wait 1300
audiostream.PerformAction(21@, play)
0ACD: show_text_highpriority "(((Phone ringing)))" time 2500
wait 2500
audiostream.PerformAction(20@, play)

0ACD: show_text_highpriority "~p~Shaundi~w~: I can make it, but I'm really baked right now." time 3500
wait 3500
0729: AS_actor $PLAYER_ACTOR hold_cellphone 0
wait 500
023C: load_special_actor 'shaundi' as 6 // models 290-299
038B: load_requested_models
04C4: store_coords_to 12@ 13@ 14@ from_actor $PLAYER_ACTOR with_offset 70.0 0.0 5.0 
02C1: store_to 12@ 13@ 14@ car_path_coords_closest_to 12@ 13@ 14@
04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset 5.0 5.0 5.0
1@ = car.Create(#FORTUNE, 12@, 13@, 14@)
0@ = Actor.CreateAsDriver(gang2, #special06, 1@)
0229: set_car 1@ primary_color_to 17 secondary_color_to 17
car.Health(1@) = 3000
actor.Health(0@) = 20000
marker.CreateAboveCar(18@, 1@)
marker.SetColor(18@, 2)
03CC: enable_car 1@ stuck_check_distance_to 2.0 time_to 2000 
00AE: set_car 1@ traffic_behaviour_to 2 
018B: set_marker 18@ radar_mode 2 
0446: set_actor 0@ dismemberment_possible 0
07FE: set_actor 0@ fighting_style_to 15 moves 6
02E2: set_actor 0@ weapon_accuracy_to 87
07DD: set_actor 0@ attack_rate 90 // previously known as temper_to
04D8: set_actor 0@ drowns_in_water 0
actor.GiveWeaponAndAmmo(0@, mp5, 99999)
0245: set_actor 0@ walk_style_to "sexywoman"
03FE: set_actor 0@ money 3000
081A: set_actor 0@ weapon_skill_to 2 
0946: set_actor 0@ actions_uninterupted_by_weapon_fire 1 
09B5: set_actor 0@ signal_after_kill 1
car.SetSpeedInstantly(1@, 60.0)
car.SetMaxSpeed(1@, 60.0)
car.SetDriverBehaviour(1@, DriveToPlayer)
0296: unload_special_actor 6
:CAR_TO_PLAYER
wait 0
if
0104:   actor $PLAYER_ACTOR near_actor 0@ radius 5.0 5.0 5.0 sphere 0

//0203:   actor $PLAYER_ACTOR near_car 1@ radius 7@ 8@ flag 0 on_foot
else_jump @Destroyed_early
jf @CAR_TO_PLAYER
0633: AS_actor 0@ exit_car
marker.Disable(18@)
car.RemoveReferences(1@)
wait 1500
marker.CreateAboveActor(19@, 0@)
marker.SetColor(19@, 2)
018B: set_marker 19@ radar_mode 2 
0631: put_actor 0@ in_group $PLAYER_GROUP
audiostream.PerformAction(23@, play)
0ACD: show_text_highpriority "~p~Shaundi~w~: We're looking to cause some trouble?" time 1500
wait 3000

jump @homie_spawned_text

:Destroyed_early
wait 0
if or
actor.Dead(0@)
car.Wrecked(1@)
else_jump @CAR_TO_PLAYER
jf @Destroyed_early
0ACD: show_text_highpriority "Shaundi has been killed." time 3000
car.RemoveReferences(1@)
wait 3000
actor.DestroyWithFade(0@)
audiostream.Release(20@)
audiostream.Release(21@)
audiostream.Release(22@)
audiostream.Release(23@)
wait 2500
jump @KEY_PRESSED
:homie_Menu_4
if
0039:   4@ ==  2  // integer values
jf @homie_Menu_5

jump @homie_spawned_text                                         

:homie_Menu_5
if
0039:   4@ ==  3  // integer values
jf @homie_Menu_6

jump @homie_spawned_text           

:homie_Menu_6
if
0039:   4@ ==  4  // integer values
jf @homie_Menu_7
//0A94: start_custom_mission "homies\beach" 
jump @homie_Menu_21

:homie_Menu_7
if
0039:   4@ ==  5  // integer values
jf @homie_Menu_8
//0A94: start_custom_mission "homies\skateshop" 
jump @homie_Menu_21

:homie_Menu_8
if
0039:   4@ ==  6  // integer values
jf @homie_Menu_9
//0A94: start_custom_mission "homies\kingmission" 
                                                          

////0A94: start_custom_mission "homies\kingmission_sriv" 
jump @homie_Menu_21

:homie_Menu_9
if
0039:   4@ ==  7  // integer values
jf @homie_Menu_10
//0A94: start_custom_mission "homies\stilwater"
jump @homie_Menu_21

:homie_Menu_10
if
0039:   4@ ==  8  // integer values
jf @homie_Menu_11

jump @homie_Menu_21

:homie_Menu_11
if
0039:   4@ ==  9  // integer values
jf @homie_Menu_12

jump @homie_Menu_21

:homie_Menu_12
if
0039:   4@ ==  10  // integer values
jf @homie_Menu_13

wait 200

jump @homie_Menu_21

:homie_Menu_13
if
0039:   4@ ==  11  // integer values
jf @homie_Menu_1          //release

wait 200
jump @homie_Menu_21

:homie_Menu_21

01B4: set_player $PLAYER_CHAR can_move 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
08DA: remove_panel 3@
03E6: remove_text_box
jump @KEY_PRESSED


:homie_spawned_text

wait 1000                          

:homie_spawned
wait 0
if and
0AB0:   key_pressed 16//--- key = Backspace  
0AB0:   key_pressed 17//--- key = Backspace 
0AB0:   key_pressed 35//--- key = Backspace 
else_jump @homie_killed
jf @homie_spawned
wait 500
0ACD: show_text_highpriority "Shaundi has been dismissed." time 3000
marker.Disable(19@)
audiostream.Release(20@)
audiostream.Release(21@)
audiostream.Release(22@)
audiostream.Release(23@)
actor.DestroyInstantly(0@)

wait 2500
jump @KEY_PRESSED

:homie_killed
wait 0
if
actor.Dead(0@)
else_jump @homie_spawned
jf @homie_killed
marker.Disable(19@)
audiostream.Release(20@)
audiostream.Release(21@)
audiostream.Release(22@)
audiostream.Release(23@)
wait 1000
0ACD: show_text_highpriority "Shaundi has been killed." time 3000
wait 5000
actor.DestroyWithFade(0@)
wait 1500
jump @KEY_PRESSED



